Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

58 lines
1.3 KiB

  1. <?xml version="1.0" encoding="iso-8859-1"?>
  2. <!-- simple xslt file: sce_rollback.xsl -->
  3. <xsl:stylesheet
  4. version="1.0"
  5. xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  6. xmlns:msxsl="urn:schemas-microsoft-com:xslt"
  7. xmlns:ssr="http://microsoft.com/sce/ssr"
  8. >
  9. <xsl:import href="../CommonLib/ExtFunctions.xsl"/>
  10. <xsl:output method="text" indent="no"/>
  11. <xsl:template match="/SSRSecurityPolicy/Services">
  12. <![CDATA[
  13. <job id="SsrSceRollback">
  14. <reference object="SSR.SsrCore"/>
  15. <script language="VBScript">
  16. Option Explicit
  17. On Error Resume Next
  18. ]]>
  19. <!-- first, let's create the rollback inf template -->
  20. <xsl:variable name="CfgInf" select="ssr:GetFileLocation('Rollback', 'SCE.inf')"/>
  21. <xsl:variable name="Rbklog" select="ssr:GetFileLocation('Rollback', 'SCE-Rollback.log')"/>
  22. 'configure template is <xsl:value-of select="$CfgInf"/>
  23. DIM SCEAgent
  24. Set SCEAgent = CreateObject("Ssr.SCEAgent")
  25. If Err.Number &lt;&gt; 0 Then
  26. WScript.Echo "Creating SSR.SCEAgent failed."
  27. WScript.Quit Err.Number
  28. End If
  29. SCEAgent.Configure "<xsl:value-of select="$CfgInf"/>", 65535, "<xsl:value-of select="$Rbklog"/>"
  30. If Err.Number &lt;&gt; 0 Then
  31. WScript.Echo "SCEAgent.Configure failed."
  32. WScript.Quit Err.Number
  33. End If
  34. <![CDATA[
  35. </script>
  36. </job>
  37. ]]>
  38. </xsl:template>
  39. </xsl:stylesheet>